The 640 MEG Shareware Studio 2/The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO/basic/iqb9107.zip/HOTKEY.BAS

BASIC Source File | 1991-06-27 | 315b | 16 lines

CONST FALSE = 0, TRUE = NOT FALSE
ON KEY(15) GOSUB RightShiftHandler
KEY 15, CHR$(1) + CHR$(&H36)
KEY(15) ON
Done% = FALSE

Here:
    PRINT "WARNING! Hand off that knob!"
    IF NOT Done% GOTO Here
    END

RightShiftHandler:
    PRINT "You pressed the right shift knob!"
    Done% = TRUE
    RETURN